/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / EDITORS / WORDCHECK / !WordChk_Example

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 3e 20 | 24 2e 57 6f 72 64 43 68 |..... > |$.WordCh|
|00000010| 65 63 6b 2e 45 78 61 6d | 70 6c 65 0d 00 14 1c f4 |eck.Exam|ple.....|
|00000020| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 0d | 00 1e 04 0d 00 28 2f f4 |=======.|.....(/.|
|00000040| 20 53 69 6d 70 6c 65 20 | 65 78 61 6d 70 6c 65 20 | Simple |example |
|00000050| 75 73 69 6e 67 20 74 68 | 65 20 57 6f 72 64 43 68 |using th|e WordCh|
|00000060| 65 63 6b 20 6d 6f 64 75 | 6c 65 0d 00 32 04 0d 00 |eck modu|le..2...|
|00000070| 3c 3e 4e 6f 6e 41 6c 70 | 68 61 24 20 3d 20 22 7e |<>NonAlp|ha$ = "~|
|00000080| 60 40 23 24 25 5e 26 2a | 28 29 5f 2b 2d 3d 7b 7d |`@#$%^&*|()_+-={}|
|00000090| 5b 5d 7c 5c 3a 22 22 3b | 27 3c 3e 3f 2c 2e 2f 20 |[]|\:"";|'<>?,./ |
|000000a0| 22 2b bd 28 31 30 29 2b | bd 28 35 29 0d 00 46 19 |"+.(10)+|.(5)..F.|
|000000b0| e8 20 22 46 69 6c 65 20 | 74 6f 20 63 68 65 63 6b |. "File |to check|
|000000c0| 20 22 3b 66 24 0d 00 50 | 0e 66 25 20 3d 20 8e 28 | ";f$..P|.f% = .(|
|000000d0| 66 24 29 0d 00 5a 0d c8 | 95 20 ac 20 c5 23 66 25 |f$)..Z..|. . .#f%|
|000000e0| 0d 00 64 14 20 20 77 24 | 20 3d 20 a4 5f 67 65 74 |..d.  w$| = ._get|
|000000f0| 77 6f 72 64 0d 00 6e 10 | 20 20 77 6f 72 64 24 20 |word..n.|  word$ |
|00000100| 3d 20 77 24 0d 00 78 22 | 20 20 c8 99 20 22 57 6f |= w$..x"|  .. "Wo|
|00000110| 72 64 43 68 65 63 6b 5f | 57 6f 72 64 22 2c 77 24 |rdCheck_|Word",w$|
|00000120| 20 b8 20 2c 62 25 0d 00 | 82 0e 20 20 e7 20 ac 20 | . ,b%..|..  . . |
|00000130| 62 25 20 8c 0d 00 8c 16 | 20 20 20 20 f2 5f 73 69 |b% .....|    ._si|
|00000140| 6e 67 75 6c 61 72 28 77 | 24 29 0d 00 96 24 20 20 |ngular(w|$)...$  |
|00000150| 20 20 c8 99 20 22 57 6f | 72 64 43 68 65 63 6b 5f |  .. "Wo|rdCheck_|
|00000160| 57 6f 72 64 22 2c 77 24 | 20 b8 20 2c 62 25 0d 00 |Word",w$| . ,b%..|
|00000170| a0 10 20 20 20 20 e7 20 | ac 20 62 25 20 8c 0d 00 |..    . |. b% ...|
|00000180| aa 15 20 20 20 20 20 20 | f2 5f 6c 6f 77 65 72 28 |..      |._lower(|
|00000190| 77 24 29 0d 00 b4 26 20 | 20 20 20 20 20 c8 99 20 |w$)...& |     .. |
|000001a0| 22 57 6f 72 64 43 68 65 | 63 6b 5f 57 6f 72 64 22 |"WordChe|ck_Word"|
|000001b0| 2c 77 24 20 b8 20 2c 62 | 25 0d 00 be 12 20 20 20 |,w$ . ,b|%....   |
|000001c0| 20 20 20 e7 20 ac 20 62 | 25 20 8c 0d 00 c8 17 20 |   . . b|% ..... |
|000001d0| 20 20 20 20 20 20 20 f2 | 5f 64 65 6c 65 64 28 77 |       .|_deled(w|
|000001e0| 24 29 0d 00 d2 28 20 20 | 20 20 20 20 20 20 c8 99 |$)...(  |      ..|
|000001f0| 20 22 57 6f 72 64 43 68 | 65 63 6b 5f 57 6f 72 64 | "WordCh|eck_Word|
|00000200| 22 2c 77 24 20 b8 20 2c | 62 25 0d 00 dc 14 20 20 |",w$ . ,|b%....  |
|00000210| 20 20 20 20 20 20 e7 20 | ac 20 62 25 20 8c 0d 00 |      . |. b% ...|
|00000220| e6 2e 20 20 20 20 20 20 | 20 20 20 20 f1 20 22 22 |..      |    . ""|
|00000230| 22 22 3b 77 6f 72 64 24 | 3b 22 22 22 20 69 73 20 |"";word$|;""" is |
|00000240| 73 70 65 6c 74 20 77 72 | 6f 6e 67 22 0d 00 f0 0d |spelt wr|ong"....|
|00000250| 20 20 20 20 20 20 20 20 | cc 0d 00 fa 0d 20 20 20 |        |.....   |
|00000260| 20 20 20 20 20 cd 0d 01 | 04 0b 20 20 20 20 20 20 |     ...|..      |
|00000270| cc 0d 01 0e 0b 20 20 20 | 20 20 20 cd 0d 01 18 09 |.....   |   .....|
|00000280| 20 20 20 20 cc 0d 01 22 | 09 20 20 20 20 cd 0d 01 |    ..."|.    ...|
|00000290| 2c 07 20 20 cd 0d 01 36 | 05 ce 0d 01 40 08 d9 23 |,.  ...6|....@..#|
|000002a0| 66 25 0d 01 4a 05 fa 0d | 01 54 04 0d 01 5e 0f dd |f%..J...|.T...^..|
|000002b0| 20 a4 5f 67 65 74 77 6f | 72 64 0d 01 68 04 0d 01 | ._getwo|rd..h...|
|000002c0| 72 10 63 24 20 3d 20 bd | 28 9a 23 66 25 29 0d 01 |r.c$ = .|(.#f%)..|
|000002d0| 7c 26 c8 95 20 28 ac 20 | c5 23 66 25 29 20 80 20 ||&.. (. |.#f%) . |
|000002e0| 28 a7 4e 6f 6e 41 6c 70 | 68 61 24 2c 63 24 29 20 |(.NonAlp|ha$,c$) |
|000002f0| 3e 20 30 29 0d 01 86 12 | 20 20 63 24 20 3d 20 bd |> 0)....|  c$ = .|
|00000300| 28 9a 23 66 25 29 0d 01 | 90 05 ce 0d 01 9a 04 0d |(.#f%)..|........|
|00000310| 01 a4 0b 77 24 20 3d 20 | 22 22 0d 01 ae 27 c8 95 |...w$ = |""...'..|
|00000320| 20 28 ac 20 c5 23 66 25 | 29 20 80 20 28 a7 4e 6f | (. .#f%|) . (.No|
|00000330| 6e 41 6c 70 68 61 24 2c | 63 24 29 20 3c 3d 20 30 |nAlpha$,|c$) <= 0|
|00000340| 29 0d 01 b8 0e 20 20 77 | 24 20 2b 3d 20 63 24 0d |)....  w|$ += c$.|
|00000350| 01 c2 12 20 20 63 24 20 | 3d 20 bd 28 9a 23 66 25 |...  c$ |= .(.#f%|
|00000360| 29 0d 01 cc 05 ce 0d 01 | d6 04 0d 01 e0 07 3d 77 |).......|......=w|
|00000370| 24 0d 01 ea 04 0d 01 f4 | 16 dd 20 f2 5f 73 69 6e |$.......|.. ._sin|
|00000380| 67 75 6c 61 72 28 f8 20 | 77 24 29 0d 01 fe 04 0d |gular(. |w$).....|
|00000390| 02 08 12 e7 20 c2 77 24 | 29 20 3d 20 22 73 22 20 |.... .w$|) = "s" |
|000003a0| 8c 0d 02 12 0f 20 20 77 | 24 20 3d 20 c0 77 24 29 |.....  w|$ = .w$)|
|000003b0| 0d 02 1c 05 cd 0d 02 26 | 04 0d 02 30 05 e1 0d 02 |.......&|...0....|
|000003c0| 3a 04 0d 02 44 13 dd 20 | f2 5f 64 65 6c 65 64 28 |:...D.. |._deled(|
|000003d0| f8 20 77 24 29 0d 02 4e | 04 0d 02 58 11 e7 20 a9 |. w$)..N|...X.. .|
|000003e0| 28 77 24 29 20 3e 20 32 | 20 8c 0d 02 62 17 20 20 |(w$) > 2| ...b.  |
|000003f0| e7 20 c2 77 24 2c 32 29 | 20 3d 20 22 65 64 22 20 |. .w$,2)| = "ed" |
|00000400| 8c 0d 02 6c 19 20 20 20 | 20 77 24 20 3d 20 c0 77 |...l.   | w$ = .w|
|00000410| 24 2c a9 28 77 24 29 2d | 32 29 0d 02 76 07 20 20 |$,.(w$)-|2)..v.  |
|00000420| cd 0d 02 80 05 cd 0d 02 | 8a 04 0d 02 94 05 e1 0d |........|........|
|00000430| 02 9e 04 0d 02 a8 13 dd | 20 f2 5f 6c 6f 77 65 72 |........| ._lower|
|00000440| 28 f8 20 57 24 29 0d 02 | b2 0e ea 20 69 25 2c 6c |(. W$)..|... i%,l|
|00000450| 25 2c 77 24 0d 02 bc 04 | 0d 02 c6 0e 6c 25 20 3d |%,w$....|....l% =|
|00000460| 20 a9 28 57 24 29 0d 02 | d0 0b 77 24 20 3d 20 22 | .(W$)..|..w$ = "|
|00000470| 22 0d 02 da 11 e3 20 69 | 25 20 3d 20 31 20 b8 20 |"..... i|% = 1 . |
|00000480| 6c 25 0d 02 e4 36 20 20 | e7 20 a7 22 41 42 43 44 |l%...6  |. ."ABCD|
|00000490| 45 46 47 48 49 4a 4b 4c | 4d 4e 4f 50 51 52 53 54 |EFGHIJKL|MNOPQRST|
|000004a0| 55 56 57 58 59 5a 22 2c | c1 57 24 2c 69 25 2c 31 |UVWXYZ",|.W$,i%,1|
|000004b0| 29 29 20 3e 20 30 20 8c | 0d 02 ee 20 20 20 20 20 |)) > 0 .|...     |
|000004c0| 77 24 20 2b 3d 20 bd 28 | 97 28 c1 57 24 2c 69 25 |w$ += .(|.(.W$,i%|
|000004d0| 2c 31 29 29 2b 33 32 29 | 0d 02 f8 07 20 20 cc 0d |,1))+32)|....  ..|
|000004e0| 03 02 17 20 20 20 20 77 | 24 20 2b 3d 20 c1 57 24 |...    w|$ += .W$|
|000004f0| 2c 69 25 2c 31 29 0d 03 | 0c 07 20 20 cd 0d 03 16 |,i%,1)..|..  ....|
|00000500| 05 ed 0d 03 20 0b 57 24 | 20 3d 20 77 24 0d 03 2a |.... .W$| = w$..*|
|00000510| 04 0d 03 34 05 e1 0d 03 | 3e 04 0d 03 48 15 dd 20 |...4....|>...H.. |
|00000520| f2 5f 63 61 70 69 74 61 | 6c 28 f8 20 77 24 29 0d |._capita|l(. w$).|
|00000530| 03 52 04 0d 03 5c 31 e7 | 20 a7 22 61 62 63 64 65 |.R...\1.| ."abcde|
|00000540| 66 67 68 69 6a 6b 6c 6d | 6e 6f 70 71 72 73 74 75 |fghijklm|nopqrstu|
|00000550| 76 77 78 79 7a 22 2c c0 | 77 24 2c 31 29 29 20 3e |vwxyz",.|w$,1)) >|
|00000560| 20 30 20 8c 0d 03 66 22 | 20 20 77 24 20 2b 3d 20 | 0 ...f"|  w$ += |
|00000570| bd 28 97 28 c0 77 24 2c | 31 29 29 2d 33 32 29 2b |.(.(.w$,|1))-32)+|
|00000580| c1 77 24 2c 32 29 0d 03 | 70 05 cd 0d 03 7a 04 0d |.w$,2)..|p....z..|
|00000590| 03 84 05 e1 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+